/~ /vmr ldef

/`{dup type arraytype ne{5 npop}if vms concat}bdf

/setscreen{pop pop pop}bdf

/currentscreen{60 45 {}}bdf

/zfill{6 npop textobject fill}bdf

/dfill{4 npop curchar fill}bdf

/starburst /eostarburst ldef

/eostarburst{6 npop fill}bdf

/gradfill /eogradfill ldef

/eogradfill /dualfill ldef

/dualfill /eodualfill ldef

/eodualfill{10 npop fill}bdf

/npop{{pop}repeat}bdf

/EXEC{/exec load}bdf

/vmrs{vmr vms}bdf

/vmr /grestore ldef

/vms /gsave ldef

/restore{pop grestore}bdf

/save{1 gsave}bdf

/ldef{load def}bdf

/bdf{bind def}bind def

/TypeStylerDict FreeHandDict def

/FHIODict FreeHandDict def

/FreeHandDict 200 dict def